home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / apple-mac-advocate-ii-fall-1997.iso / mac / MacOS / Other Installers / LaserWriter 8.4.1 Installer / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / PS_-8131 < prev    next >
Encoding:
Text File  |  1996-09-10  |  842 b   |  73 lines
  1. save/sv exch def
  2. /languagelevel where
  3. {
  4. pop languagelevel 2 ge
  5. }{
  6. false
  7. }ifelse
  8. {
  9. /str 128 string def
  10. count
  11. {
  12. (/)print
  13. dup str cvs print
  14. (:)print
  15. /Font resourcestatus
  16. {
  17. pop pop(Yes)
  18. }{
  19. (No)
  20. }ifelse =
  21. }bind repeat
  22. }{
  23. /isondisk
  24. /filenameforall where
  25. {
  26. pop
  27. countdictstack mark{(foo)status}stopped{
  28. $error/newerror false put
  29. cleartomark
  30. countdictstack exch sub dup 0 gt{{end}repeat}{pop}ifelse
  31. false
  32. }{
  33. cleartomark pop
  34. true
  35. }ifelse
  36. }{false}ifelse
  37. {
  38. {
  39. str 6 94 getinterval cvs
  40. length 6 add str 0 3 -1 roll getinterval
  41. mark exch status
  42. {
  43. cleartomark(Yes)
  44. }{
  45. cleartomark(No)
  46. }ifelse
  47. }
  48. }{
  49. {
  50. pop(No)
  51. }
  52. }ifelse
  53. bind def
  54. /str 128 string dup 0(fonts/)putinterval def
  55. /st2 128 string def
  56. count
  57. {
  58. (/)print
  59. dup st2 cvs print
  60. (:)print
  61. FontDirectory 1 index
  62. known
  63. {
  64. pop(Yes)
  65. }{
  66. isondisk
  67. }ifelse =
  68. }bind repeat
  69. }ifelse
  70. (*)=
  71. sv restore
  72. %%?EndFontQuery: Unknown
  73.